home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 01 (1991-01)(MindCraft Publishing)(Side A)[a].po
/
SHRINKER.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
404b
|
2 lines
1 TEXT : HOME : HGR : GR : VTAB 21: PRINT "ARROWS TO MOVE, D+E FOR DRAW+ERASE MODES":X = 20:Y = 20: POKE 768,1
2 GET A$:A = ASC(A$):X = X +1 *(A = 21) -1 *(A = 8):Y = Y +1 *(A = 10) -1 *(A = 11):B = PEEK(768): POKE 768,(A = 68 OR B = 1) -(A = 69):C = PEEK(768): COLOR= C *15: HCOLOR= C *3: PLOT X,Y: HPLOT X,Y: ON A < >13 GOTO 2: POKE -16297,0: POKE -16300,0: POKE -16301,0: POKE -16304,0: END